home *** CD-ROM | disk | FTP | other *** search
/ GameStar 1998 November (Bonus) / GAMESTAR11B.ISO / ENCYC99 / MM / T620273A.DCR / scripts_23_Class ResetButtonCatcher.ls < prev    next >
Encoding:
Text File  |  1998-07-02  |  408 b   |  22 lines
  1. on catchEvent me, xEvent
  2.   global pieceList, fixedPieceList, ResetButton, infoBox
  3.   case xEvent of
  4.     #reset:
  5.       repeat with i in pieceList
  6.         destroy(i)
  7.       end repeat
  8.       repeat with i in fixedPieceList
  9.         destroy(i)
  10.       end repeat
  11.       turnOff(ResetButton)
  12.       unsubscribe(ResetButton)
  13.       cleanUp(infoBox)
  14.       go(1)
  15.       initPuzzle()
  16.   end case
  17. end
  18.  
  19. on new me
  20.   return me
  21. end
  22.